0 REM << RR13-4 >>
1 REM =-= SPRITE MAKER =-=
10 INPUT"STORE IN WHICH MEMORY BLOCK (192..199)";BK
20 MEM=64*BK
30 FOR ROW=0 TO 20
40 READ A$
50 FOR BYTE=0 TO 2 : TTL=0
60 FOR BIT=7 TO 0 STEP -1
70 IF MID$(A$,8+8*BYTE-BIT,1)="."THEN 90
80 TTL=TTL+2^BIT
90 NEXT BIT
100 PRINT TTL,
110 POKE MEM,TTL : MEM=MEM+1
120 NEXT BYTE
130 PRINT
140 NEXT ROW
1001 DATA........................
1002 DATA...................**...
1003 DATA...................***..
1004 DATA....................**..
1005 DATA........................
1006 DATA...................*...*
1007 DATA....................*...
1008 DATA.................*..*...
1009 DATA..................***...
1010 DATA..............**....*...
1011 DATA.............*..*...*...
1012 DATA............*....*..*...
1013 DATA....*........*..*..**...
1014 DATA***..*...**...**........
1015 DATA****..*.*..*............
1016 DATA*..**..*....*...........
1017 DATA*...**..*...............
1018 DATA.*.**.*..*..*...........
1019 DATA..**...**..*............
1020 DATA...*....***.............
1021 DATA....*...................